home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / tool / m1024 / pagem.awk < prev   
Text File  |  1994-07-24  |  655b  |  41 lines
  1. BEGIN {
  2.     t=(t)?t:8
  3.     l=(l)?l:50
  4.     lp=(lp)?lp:32
  5.     hp=(hp)?hp:34
  6.     FS="\t"
  7.     fn=toupper(ARGV[1])
  8.     sub(/^.*\\/,"",fn)
  9.     print fn >"/dev/stderr"
  10.     "kiroku $20 $0d$0a" | getline dt
  11.     close("kiroku $20 $0d$0a")
  12.     print "FM Print File"
  13. }
  14.  
  15. NF>1 {
  16.     s=$1
  17.     for(i=1; i<NF; i++) {
  18.         ns=t-length(s)%t
  19.         s=s sprintf("%" ns "s","") $(i+1)
  20.     }
  21.     $0=s
  22. }
  23.  
  24. {
  25.     if(NR % l == 1) {
  26.         if(NR != 1) print " "
  27.         print "T32r\x1f\x13fT" lp
  28.         printf ("%" hp "s%23s%-12s  page %d\n", "", "", fn, ++p)
  29.         print "0d"
  30.         printf ("%" hp "s%s\n", "", dt)
  31.         print "\n"
  32.     }
  33.     print $0
  34.     if($0) print ""
  35. }
  36.  
  37. END {
  38.     print " "
  39.     printf("Page=%d\n",p) >"/dev/stderr"
  40. }
  41.